home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 1 / Gold Medal Software Volume 1 (Gold Medal) (1994).iso / graphics / show40a.arj / GUIDE.EXE / GUIDE.SHW < prev    next >
Text File  |  1993-12-01  |  5KB  |  155 lines
  1. ;*******************************************************************;
  2. ; Sciptname..:  Guide.SHW                                           ;
  3. ; Date.......:  1st. Dec. 1993, by RMP DATA.                        ;
  4. ; Purpose....:  Promotion for DATASHOW, as an example script.       ;
  5. ;*******************************************************************;
  6.  
  7. SET ESCAPEKEY OFF
  8. SET DEBUG ON
  9.  
  10. ;Make sure support files are there
  11. IF NOT FILE "show1.scr" DO JUMPMARK 450
  12. IF NOT FILE "show3.scr" DO JUMPMARK 450
  13. IF NOT FILE "show4.scr" DO JUMPMARK 450
  14. IF NOT FILE "show6.scr" DO JUMPMARK 450
  15. IF NOT FILE "guidekey.shw" DO JUMPMARK 450
  16. IF NOT FILE "guideit.shw" DO JUMPMARK 450
  17.  
  18. ; Create variable to check for support files.
  19. VARIABLE CREATE fileno TYPE NUMBER 1
  20. ; This check all the guide screen files
  21. MARK 10
  22. IF NOT FILE "GUIDE"+fileno+".SCR" DO JUMPMARK 450
  23. IF fileno EQ 13 DO JUMPMARK 11
  24. MATH fileno = fileno+1
  25. JUMPMARK 10
  26. MARK 11
  27. ; Clean up after us
  28. VARIABLE RELEASE ALL
  29.  
  30. ;Create variable to control branching
  31. VARIABLE CREATE place TYPE NUMBER 0
  32.  
  33. ;Create variable for keyboard input
  34. VARIABLE CREATE inkey TYPE KEY
  35. VARIABLE CREATE instr TYPE STRING ""
  36. VARIABLE CREATE mouseuse TYPE NUMBER 0
  37.  
  38. IF MOUSE DO
  39.    COLOR BACKGROUND 5
  40.    COLOR FOREGROUND 15
  41.    SCREEN CLEAR
  42.    SET CURSOR ON
  43.    GOXY 8 10 DRAW BOX 67 2
  44.    GOXY 9 11
  45.    WRITE "A mouse has been detected. Type 'Y' to use it in certain places:"
  46.    GOXY 74 11 READ KEY inkey
  47.    CASE KEY inkey 121 DO MATH mouseuse = 1
  48.    CASE KEY inkey 89 DO MATH mouseuse = 1
  49. END
  50.  
  51. ;Create a starting point to jump to
  52. MARK 1
  53.  
  54. COLOR ATTRIBUTE 95
  55. COLOR BACKGROUND 5
  56. COLOR FOREGROUND 15
  57. SCREEN CLEAR
  58.  
  59. DRAW BOX 79 24
  60.  
  61. SET CURSOR ON
  62. SET DELAYFACTOR 3
  63. GOXY 22 3 WRITE "T H I S   I S   A   G U I D E   T O"
  64. GOXY 23 5 WRITE "U S I N G   D A T A S H O W . . ."
  65. SET DELAYFACTOR 0
  66.  
  67. COLOR ATTRIBUTE 84
  68. GOXY 21 7 DRAW LINE 36
  69. GOXY 21 9 DRAW BOX 36 10
  70. GOXY 23 10 WRITE "1. How to use this Guide"
  71. GOXY 23 12 WRITE "2. Your first simple script"
  72. GOXY 23 14 WRITE "3. Your first simple slide show"
  73. GOXY 23 16 WRITE "4. How to use DataShow in general"
  74. GOXY 23 18 WRITE "5. Exit the guide"
  75.  
  76. MARK 2
  77. SET CURSOR ON
  78. GOXY 23 22 WRITE "Enter your choise (1 to 5):              "
  79. GOXY 51 22 READ KEY inkey
  80.  
  81. SET CURSOR OFF
  82. CASE KEY inkey 49 DO JUMPMARK 100  ; inkey is 1
  83. CASE KEY inkey 50 DO JUMPMARK 200  ; inkey is 2
  84. CASE KEY inkey 51 DO JUMPMARK 300  ; inkey is 3
  85. CASE KEY inkey 52 DO JUMPMARK 400  ; inkey is 4
  86. CASE KEY inkey 53 DO JUMPMARK 500  ; inkey is 5
  87. GOXY 23 22 WRITE "Error in choise - please select (1 to 5)!"
  88. MUSIC SOUND A 2 200
  89. WAIT 1
  90. JUMPMARK 2
  91.  
  92. ;********************************************************************
  93. ;Commands for choise 1. how to use this guide
  94. ;********************************************************************
  95. MARK 100
  96. MATH place = 1
  97. DO "guideit.shw"
  98.  
  99. DO "guidekey.shw"
  100. CASE KEY inkey 445 DO JUMPMARK 500  ; alt+x
  101. JUMPMARK 1
  102.  
  103. ;********************************************************************
  104. ;Commands for choise 2. the first simple script
  105. ;********************************************************************
  106. MARK 200
  107. DO "guidescr.shw"
  108.  
  109. DO "guidekey.shw"
  110. CASE KEY inkey 445 DO JUMPMARK 500  ; alt+x
  111. JUMPMARK 1
  112.  
  113. ;********************************************************************
  114. ;Commands for choise 3.
  115. ;********************************************************************
  116. MARK 300
  117. DO "guidesld.shw"
  118.  
  119. DO "guidekey.shw"
  120. CASE KEY inkey 445 DO JUMPMARK 500  ; alt+x
  121. JUMPMARK 1
  122.  
  123. ;********************************************************************
  124. ;Commands for choise 4.
  125. ;********************************************************************
  126. MARK 400
  127. MATH place = 2
  128. DO "guideit.shw"
  129.  
  130. DO "guidekey.shw"
  131. CASE KEY inkey 445 DO JUMPMARK 500  ; alt+x
  132. JUMPMARK 1
  133.  
  134. ;********************************************************************
  135. ;Commands if support files are not found
  136. ;********************************************************************
  137. MARK 450
  138. SCREEN CLEAR
  139. GOXY 10 08 DRAW BOX 62 6
  140. GOXY 11 09
  141. WRITE "With this tutorial some files are expected:                  "
  142. GOXY 11 10
  143. WRITE "show1.scr, show3.scr, show4.scr, show6.scr, ...              "
  144. GOXY 11 11
  145. WRITE "Unfortunately they cannot be found in the current directory. "
  146. GOXY 11 12
  147. WRITE "Try to correct the problem, and then run this tutorial again."
  148. GOXY 11 13
  149. WAIT "-- Press any key --"
  150.  
  151. ;********************************************************************
  152. ;Commands for exit point
  153. ;********************************************************************
  154. MARK 500
  155.